SPACE 1/SPACE - Library 1 - Volume 1.iso/program/84/example.lst

File List | 1987-08-16 | 11KB | 348 lines

Procedure Example_box (Preselect$,Postselect)
  Hidem
  Local Screen$,Temp$,Xm,Ym,Button$,Radio1_old$,Radio2_old$,Radio3_old$,Radio4_old$,Radio5_old$,Radio1_new$,Radio2_new$,Radio3_new$,Radio4_new$,Radio5_new$,Stat_exit
  Sget Screen$
  Local Toggle_1_stat$, Toggle_1_stat
  Local Toggle_2_stat$, Toggle_2_stat
  Local Exit_1_stat$, Exit_1_stat
  Local Exit_2_stat$, Exit_2_stat
  @Drawshapes_Example_box
  @Radio_title(0)
  @Toggle_title(0)
  @exit_title(0)
  If Instr(Preselect$,"(Radio_a_1)")>0
    @Radio_a_1(-1)
    Let Radio1_old$="Radio_a_1"
  Else
    @Radio_a_1(0)
  Endif
  If Instr(Preselect$,"(Radio_a_2)")>0
    @Radio_a_2(-1)
    Let Radio1_old$="Radio_a_2"
  Else
    @Radio_a_2(0)
  Endif
  If Instr(Preselect$,"(Radio_a_3)")>0
    @Radio_a_3(-1)
    Let Radio1_old$="Radio_a_3"
  Else
    @Radio_a_3(0)
  Endif
  If Instr(Preselect$,"(Radio_a_4)")>0
    @Radio_a_4(-1)
    Let Radio1_old$="Radio_a_4"
  Else
    @Radio_a_4(0)
  Endif
  If Instr(Preselect$,"(Radio_b_1)")>0
    @Radio_b_1(-1)
    Let Radio4_old$="Radio_b_1"
  Else
    @Radio_b_1(0)
  Endif
  If Instr(Preselect$,"(Radio_b_2)")>0
    @Radio_b_2(-1)
    Let Radio4_old$="Radio_b_2"
  Else
    @Radio_b_2(0)
  Endif
  If Instr(Preselect$,"(Radio_b_3)")>0
    @Radio_b_3(-1)
    Let Radio4_old$="Radio_b_3"
  Else
    @Radio_b_3(0)
  Endif
  If Instr(Preselect$,"(Toggle_1)")>0
    @Toggle_1(-1)
    Let Toggle_1_stat=true
    Let Toggle_1_stat$="Toggle_1"
  Else
    @Toggle_1(0)
  Endif
  If Instr(Preselect$,"(Toggle_2)")>0
    @Toggle_2(-1)
    Let Toggle_2_stat=true
    Let Toggle_2_stat$="Toggle_2"
  Else
    @Toggle_2(0)
  Endif
    @Exit_1(0)
    @Exit_2(0)
  @Cancel(0)
  @Okay(0)
  Showm
  Do
    If Inkey$=Chr$(13)
      Default=True
    Else
      Default=False
    Endif
    If Mousek=1
      Mouse Xm,Ym,Void
      @Find_button_Example_box (Xm,Ym,*Button$)
     If Instr("(Radio_a_1)(Radio_a_2)(Radio_a_3)(Radio_a_4)","("+Button$+")")>0
        @Radio1_Example_box (Button$,Radio1_old$,*Radio1_new$)
        Radio1_old$=Radio1_new$
      Endif
     If Instr("(Radio_b_1)(Radio_b_2)(Radio_b_3)","("+Button$+")")>0
        @Radio4_Example_box (Button$,Radio4_old$,*Radio4_new$)
        Radio4_old$=Radio4_new$
      Endif
      If Button$="Toggle_1"
        If Toggle_1_stat
          @Toggle_1(0)
          Let Toggle_1_stat=False
          Let Toggle_1_stat$=""
        Else
          @Toggle_1(-1)
          Let Toggle_1_stat=True
          Let Toggle_1_stat$="Toggle_1"
        Endif
      Endif
      If Button$="Toggle_2"
        If Toggle_2_stat
          @Toggle_2(0)
          Let Toggle_2_stat=False
          Let Toggle_2_stat$=""
        Else
          @Toggle_2(-1)
          Let Toggle_2_stat=True
          Let Toggle_2_stat$="Toggle_2"
        Endif
      Endif
      If Button$="Exit_1"
        If Exit_1_stat
          @Exit_1(0)
          Let Exit_1_stat=False
          Let Exit_1_stat$=""
          Let Stat_exit=False
        Else
          @Exit_1(-1)
          Let Exit_1_stat=True
          Let Exit_1_stat$="Exit_1"
           Let Stat_exit=True
        Endif
      Endif
      If Button$="Exit_2"
        If Exit_2_stat
          @Exit_2(0)
          Let Exit_2_stat=False
          Let Exit_2_stat$=""
          Let Stat_exit=False
        Else
          @Exit_2(-1)
          Let Exit_2_stat=True
          Let Exit_2_stat$="Exit_2"
           Let Stat_exit=True
        Endif
      Endif
    Endif
    Exit if (Button$="Okay") Or (Button$="Cancel") Or Default
    Exit If (Button$="Exit_1")
    Exit If (Button$="Exit_2")
  Pause 4
  Loop
  If Stat_exit
Temp$=Temp$+"("+Radio1_old$+")"
Temp$=Temp$+"("+Radio4_old$+")"
Temp$=Temp$+"("+Toggle_1_stat$+")"
Temp$=Temp$+"("+Toggle_2_stat$+")"
Temp$=Temp$+"("+Exit_1_stat$+")"
Temp$=Temp$+"("+Exit_2_stat$+")"
  *Postselect=Temp$
  Endif
  Do
    @Find_button_Example_box (Xm,Ym,*Button$)
    If Button$="Okay" Or Default
      @Okay(-1)
      Stat_exit=True
Temp$=Temp$+"("+Radio1_old$+")"
Temp$=Temp$+"("+Radio4_old$+")"
Temp$=Temp$+"("+Toggle_1_stat$+")"
Temp$=Temp$+"("+Toggle_2_stat$+")"
Temp$=Temp$+"("+Exit_1_stat$+")"
Temp$=Temp$+"("+Exit_2_stat$+")"
  *Postselect=Temp$
  Endif
    If Button$="Cancel"
      @Cancel(-1)
      Stat_exit=True
      *Postselect=Preselect$
    Endif
  Exit if Stat_exit
  Loop
  Pause 7
  Sput Screen$
Return
Procedure Radio1_Example_box (Rbutton$,Old_stat$,New_stat)
  If Old_stat$="Radio_a_1"
    @Radio_a_1(0)
  Endif
  If Old_stat$="Radio_a_2"
    @Radio_a_2(0)
  Endif
  If Old_stat$="Radio_a_3"
    @Radio_a_3(0)
  Endif
  If Old_stat$="Radio_a_4"
    @Radio_a_4(0)
  Endif
  If Rbutton$="Radio_a_1"
    @Radio_a_1(-1)
    *New_stat="Radio_a_1"
  Endif
  If Rbutton$="Radio_a_2"
    @Radio_a_2(-1)
    *New_stat="Radio_a_2"
  Endif
  If Rbutton$="Radio_a_3"
    @Radio_a_3(-1)
    *New_stat="Radio_a_3"
  Endif
  If Rbutton$="Radio_a_4"
    @Radio_a_4(-1)
    *New_stat="Radio_a_4"
  Endif
Return
Procedure Radio4_Example_box (Rbutton$,Old_stat$,New_stat)
  If Old_stat$="Radio_b_1"
    @Radio_b_1(0)
  Endif
  If Old_stat$="Radio_b_2"
    @Radio_b_2(0)
  Endif
  If Old_stat$="Radio_b_3"
    @Radio_b_3(0)
  Endif
  If Rbutton$="Radio_b_1"
    @Radio_b_1(-1)
    *New_stat="Radio_b_1"
  Endif
  If Rbutton$="Radio_b_2"
    @Radio_b_2(-1)
    *New_stat="Radio_b_2"
  Endif
  If Rbutton$="Radio_b_3"
    @Radio_b_3(-1)
    *New_stat="Radio_b_3"
  Endif
Return
Procedure Drawshapes_Example_box
  Deffill 1,0,0
  Pbox 227,15/(2/xbios(4)),317,105/(2/Xbios(4))
  Deffill 1,0,0
  Pbox 13,11/(2/xbios(4)),187,144/(2/Xbios(4))
  Deffill 1,0,0
  Pbox 349,13/(2/xbios(4)),610,173/(2/Xbios(4))
  Deffill 1,2,4
  Pbox 353,17/(2/xbios(4)),605,168/(2/Xbios(4))
  Deffill 1,2,4
  Pbox 16,15/(2/xbios(4)),183,140/(2/Xbios(4))
  Deffill 1,2,2
  Pbox 231,18/(2/xbios(4)),313,102/(2/Xbios(4))
Return
Procedure Radio_a_1(Selected)
  @Draw_text_in_box("Radio A 1",372,71/(2/xbios(4)),0,1,1,2,0/(2/Xbios(4)),1/(2/Xbios(4)),Selected)
Return
Procedure Radio_a_2(Selected)
  @Draw_text_in_box("Radio A 2",372,98/(2/xbios(4)),0,1,1,2,0/(2/Xbios(4)),1/(2/Xbios(4)),Selected)
Return
Procedure Radio_a_3(Selected)
  @Draw_text_in_box("Radio A 3",372,125/(2/xbios(4)),0,1,1,2,0/(2/Xbios(4)),1/(2/Xbios(4)),Selected)
Return
Procedure Radio_a_4(Selected)
  @Draw_text_in_box("Radio A 4",372,152/(2/xbios(4)),0,1,1,2,0/(2/Xbios(4)),1/(2/Xbios(4)),Selected)
Return
Procedure Radio_b_1(Selected)
  @Draw_text_in_box("Radio B 1",515,71/(2/xbios(4)),0,1,1,2,0/(2/Xbios(4)),1/(2/Xbios(4)),Selected)
Return
Procedure Radio_b_2(Selected)
  @Draw_text_in_box("Radio B 2",515,98/(2/xbios(4)),0,1,1,2,0/(2/Xbios(4)),1/(2/Xbios(4)),Selected)
Return
Procedure Radio_b_3(Selected)
  @Draw_text_in_box("Radio B 3",515,125/(2/xbios(4)),0,1,1,2,0/(2/Xbios(4)),1/(2/Xbios(4)),Selected)
Return
Procedure Radio_title(Selected)
  @Draw_text_in_box("RADIO BUTTONS",433,40/(2/xbios(4)),0,1,1,2,0/(2/Xbios(4)),1/(2/Xbios(4)),Selected)
Return
Procedure Toggle_1(Selected)
  @Draw_text_in_box("Toggle 1",28,36/(2/xbios(4)),0,1,1,2,0/(2/Xbios(4)),1/(2/Xbios(4)),Selected)
Return
Procedure Toggle_2(Selected)
  @Draw_text_in_box("Toggle 2",28,64/(2/xbios(4)),0,1,1,2,0/(2/Xbios(4)),1/(2/Xbios(4)),Selected)
Return
Procedure Exit_1(Selected)
  @Draw_text_in_box("Exit 1",34,100/(2/xbios(4)),0,1,1,2,0/(2/Xbios(4)),1/(2/Xbios(4)),Selected)
Return
Procedure Exit_2(Selected)
  @Draw_text_in_box("Exit 2",34,127/(2/xbios(4)),0,1,1,2,0/(2/Xbios(4)),1/(2/Xbios(4)),Selected)
Return
Procedure Okay(Selected)
  @Draw_text_in_box("Okay",258,42/(2/xbios(4)),0,1,1,2,0/(2/Xbios(4)),4/(2/Xbios(4)),Selected)
Return
Procedure Cancel(Selected)
  @Draw_text_in_box("Cancel",249,82/(2/xbios(4)),0,1,1,2,0/(2/Xbios(4)),1/(2/Xbios(4)),Selected)
Return
Procedure Toggle_title(Selected)
  @Draw_text_in_box("⇦ TOGGLE",109,52/(2/xbios(4)),0,1,1,2,0/(2/Xbios(4)),0/(2/Xbios(4)),Selected)
Return
Procedure exit_title(Selected)
  @Draw_text_in_box("⇦ EXIT",109,116/(2/xbios(4)),0,1,1,2,0/(2/Xbios(4)),0/(2/Xbios(4)),Selected)
Return
Procedure Find_button_Example_box (X_mouse,Y_mouse,Button_selected)
  If (X_mouse>369) And (X_mouse<447) And (Y_mouse>57/(2/Xbios(4))) And (Y_mouse<75/(2/Xbios(4)))
    *Button_selected="Radio_a_1"
    Goto Found_button_Example_box
  Endif
  If (X_mouse>369) And (X_mouse<447) And (Y_mouse>84/(2/Xbios(4))) And (Y_mouse<102/(2/Xbios(4)))
    *Button_selected="Radio_a_2"
    Goto Found_button_Example_box
  Endif
  If (X_mouse>369) And (X_mouse<447) And (Y_mouse>111/(2/Xbios(4))) And (Y_mouse<129/(2/Xbios(4)))
    *Button_selected="Radio_a_3"
    Goto Found_button_Example_box
  Endif
  If (X_mouse>369) And (X_mouse<447) And (Y_mouse>138/(2/Xbios(4))) And (Y_mouse<156/(2/Xbios(4)))
    *Button_selected="Radio_a_4"
    Goto Found_button_Example_box
  Endif
  If (X_mouse>512) And (X_mouse<590) And (Y_mouse>57/(2/Xbios(4))) And (Y_mouse<75/(2/Xbios(4)))
    *Button_selected="Radio_b_1"
    Goto Found_button_Example_box
  Endif
  If (X_mouse>512) And (X_mouse<590) And (Y_mouse>84/(2/Xbios(4))) And (Y_mouse<102/(2/Xbios(4)))
    *Button_selected="Radio_b_2"
    Goto Found_button_Example_box
  Endif
  If (X_mouse>512) And (X_mouse<590) And (Y_mouse>111/(2/Xbios(4))) And (Y_mouse<129/(2/Xbios(4)))
    *Button_selected="Radio_b_3"
    Goto Found_button_Example_box
  Endif
  If (X_mouse>25) And (X_mouse<95) And (Y_mouse>22/(2/Xbios(4))) And (Y_mouse<40/(2/Xbios(4)))
    *Button_selected="Toggle_1"
    Goto Found_button_Example_box
  Endif
  If (X_mouse>25) And (X_mouse<95) And (Y_mouse>50/(2/Xbios(4))) And (Y_mouse<68/(2/Xbios(4)))
    *Button_selected="Toggle_2"
    Goto Found_button_Example_box
  Endif
  If (X_mouse>31) And (X_mouse<85) And (Y_mouse>86/(2/Xbios(4))) And (Y_mouse<104/(2/Xbios(4)))
    *Button_selected="Exit_1"
    Goto Found_button_Example_box
  Endif
  If (X_mouse>31) And (X_mouse<85) And (Y_mouse>113/(2/Xbios(4))) And (Y_mouse<131/(2/Xbios(4)))
    *Button_selected="Exit_2"
    Goto Found_button_Example_box
  Endif
  If (X_mouse>252) And (X_mouse<296) And (Y_mouse>25/(2/Xbios(4))) And (Y_mouse<49/(2/Xbios(4)))
    *Button_selected="Okay"
    Goto Found_button_Example_box
  Endif
  If (X_mouse>246) And (X_mouse<300) And (Y_mouse>68/(2/Xbios(4))) And (Y_mouse<86/(2/Xbios(4)))
    *Button_selected="Cancel"
    Goto Found_button_Example_box
  Endif
  *Button_selected=" "
  Found_button_Example_box:
Return